tic
  clear all

A=single(randn(5000,5000));
B=single(randn(5000,5000));
D=single(randn(5000,1));
C=A*B*D;
v=sum(C);

toc